home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 5 / QRZ Ham Radio Callsign Database - Volume 5.iso / digests / space / 940238.txt < prev    next >
Encoding:
Internet Message Format  |  1994-11-13  |  5.6 KB
  1. Date: Sat, 27 Aug 94 04:30:18 PDT
  2. From: Ham-Space Mailing List and Newsgroup <ham-space@ucsd.edu>
  3. Errors-To: Ham-Space-Errors@UCSD.Edu
  4. Reply-To: Ham-Space@UCSD.Edu
  5. Precedence: Bulk
  6. Subject: Ham-Space Digest V94 #238
  7. To: Ham-Space
  8.  
  9.  
  10. Ham-Space Digest            Sat, 27 Aug 94       Volume 94 : Issue  238
  11.  
  12. Today's Topics:
  13.                       Converting Grid to Lat-Lon
  14.                       QSL Route for RS-12 Robot
  15.  
  16. Send Replies or notes for publication to: <Ham-Space@UCSD.Edu>
  17. Send subscription requests to: <Ham-Space-REQUEST@UCSD.Edu>
  18. Problems you can't solve otherwise to brian@ucsd.edu.
  19.  
  20. Archives of past issues of the Ham-Space Digest are available 
  21. (by FTP only) from UCSD.Edu in directory "mailarchives/ham-space".
  22.  
  23. We trust that readers are intelligent enough to realize that all text
  24. herein consists of personal comments and does not represent the official
  25. policies or positions of any party.  Your mileage may vary.  So there.
  26. ----------------------------------------------------------------------
  27.  
  28. Date: 25 Aug 1994 13:00:33 -0700
  29. From: nntp.crl.com!crl4.crl.com!not-for-mail@decwrl.dec.com
  30. Subject: Converting Grid to Lat-Lon
  31. To: ham-space@ucsd.edu
  32.  
  33. In article <9408250942.ZM25231@SALCIUS2>,
  34. Wayne_Estes@csg.mot.com (Wayne_Estes) wrote:
  35.  
  36. > I'm looking for a DOS or Windows program that can:
  37. > 
  38. >     A. Convert 6-digit Maidenhead grid  to  Latitude/Longitude.
  39. >     B. Convert Latitude/Longitude  to  6-digit Maidenhead grid.
  40.  
  41. Wayne -
  42.  
  43. The attached Quick BASIC program will perform the functions you
  44. mentioned above.  Sorry, I don't know who was the original author, so
  45. can't give appropriate credits.
  46.  
  47. 73 de Lou / N5SGL
  48.                    --------------------------
  49.  
  50.     'Grid Square <-> latitude/longitude conversion
  51.     '
  52. START:
  53.     CLS : COLOR 0, 7: PRINT "GRID SQUARE LOCATOR": COLOR 7, 0: PRINT
  54.     PRINT "Which do you want to convert FROM?": PRINT
  55.     COLOR 0, 7: PRINT "L"; : COLOR 7, 0: PRINT "at/Lon   ";
  56.     COLOR 0, 7: PRINT "G"; : COLOR 7, 0: PRINT "rid   ";
  57.     COLOR 0, 7: PRINT "Q"; : COLOR 7, 0: PRINT "uit": PRINT
  58.     
  59. RPT1:
  60.     a$ = ""
  61.     DO
  62.         a$ = INKEY$
  63.     LOOP UNTIL a$ <> ""
  64.     IF UCASE$(a$) = "Q" THEN END
  65.     IF UCASE$(a$) = "L" THEN GOTO LL
  66.     IF UCASE$(a$) = "G" THEN GOTO GRID
  67.     GOTO RPT1
  68.     
  69. LL:
  70.     CLEAR : e9 = .000001
  71.     CLS : COLOR 0, 7: PRINT "LAT/LON": COLOR 7, 0: PRINT
  72.     PRINT "Enter SOUTH latitude and EAST longitude as NEGATIVE numbers."
  73.     PRINT
  74.     INPUT "LAT  (DD.MM)"; l
  75.     IF l < -90 OR l > 90 THEN RUN
  76.     INPUT "LON (DDD.MM)"; o
  77.     IF o < -180 OR o > 180 THEN RUN
  78.     os = SGN(o): o = ABS(o): ls = SGN(l): l = ABS(l)
  79.     la = (INT(l) + (l - INT(l)) / .6) * ls
  80.     lo = (INT(o) + (o - INT(o)) / .6) * os
  81.     IF lo < 0 THEN lo = lo + 360
  82.     w3 = 180 - lo: IF w3 < 0 THEN w3 = w3 + 360
  83.     w1 = INT(w3 / 20 + e9)
  84.     w2 = INT((w3 - 20 * w1) / 2 + e9) + 48: w1 = w1 + 65
  85.     w3 = INT(24 * (w3 / 2 - INT(w3 / 2)) + e9) + 65
  86.     l1 = INT((la + 90) / 10 + e9): l2 = INT(la + 90 + e9 - 10 * l1)
  87.     l3 = INT((la + 90 - 10 * l1 - l2) * 24 + e9)
  88.     l1 = l1 + 65: l2 = l2 + 48: l3 = l3 + 65
  89.     g$ = CHR$(w1) + CHR$(l1) + CHR$(w2) + CHR$(l2) + CHR$(w3) + CHR$(l3)
  90.     PRINT : PRINT "Grid square = "; UCASE$(g$)
  91.     LOCATE 24, 1: PRINT "< Press a key to continue >";
  92.     a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": GOTO START
  93.     
  94. GRID:
  95.     CLEAR : e9 = .000001
  96.     CLS : COLOR 0, 7: PRINT "GRID SQUARE": COLOR 7, 0: PRINT
  97.     PRINT "Enter 2-, 4-, or 6-character grid square."
  98.     PRINT "Short ones will be optimized to center of square.": PRINT
  99.     INPUT "Grid square"; g$
  100.     g$ = UCASE$(g$)
  101.     l3 = LEN(g$): IF l3 < 2 OR l3 > 6 THEN RUN
  102.     IF l3 = 1 OR l3 = 3 OR l3 = 5 THEN RUN
  103.     SELECT CASE l3
  104.         CASE 2
  105.             g$ = g$ + "55LL"
  106.         CASE 4
  107.             g$ = g$ + "LL"
  108.     END SELECT
  109.     LOCATE CSRLIN - 1, 1: PRINT "Grid square = "; g$; "      "
  110.     RESTORE
  111.     FOR x = 1 TO 6
  112.         READ y$, z$
  113.         t$ = MID$(g$, x, 1): IF t$ < y$ OR t$ > z$ THEN RUN
  114.     NEXT x
  115.     DATA A,R,A,S,0,9,0,9,A,X,A,X
  116.     w1 = ASC(LEFT$(g$, 1)) - 65
  117.     w2 = ASC(MID$(g$, 3, 1)) - 48
  118.     w3 = ASC(MID$(g$, 5, 1)) - 65
  119.     lo = 180 - 20 * w1 - 2 * w2 - w3 / 12 - 1 / 24
  120.     IF lo < 0 THEN lo = lo + 360
  121.     l1 = ASC(MID$(g$, 2, 1)) - 65
  122.     l2 = ASC(MID$(g$, 4, 1)) - 48
  123.     l3 = ASC(RIGHT$(g$, 1)) - 65
  124.     la = -90 + 10 * l1 + l2 + l3 / 24 + 1 / 48
  125.     IF lo > 180 THEN lo = lo - 360
  126.     ls = SGN(la): la = ABS(la)
  127.     l = (INT(la) + INT((la - INT(la)) * 60) / 100) * ls
  128.     os = SGN(lo): lo = ABS(lo)
  129.     o = (INT(lo) + INT((lo - INT(lo)) * 60) / 100) * os
  130.     PRINT
  131.     PRINT "LAT   (DD.MM) ="; l
  132.     PRINT "LON  (DDD.MM) ="; o
  133.     PRINT
  134.     PRINT "(SOUTH latitude and EAST longitude shown as negative numbers.)"
  135.     LOCATE 24, 1: PRINT "< Press a key to continue >";
  136.     a$ = "": DO: a$ = INKEY$: LOOP UNTIL a$ <> ""
  137.     GOTO START
  138.  
  139. ------------------------------
  140.  
  141. Date: 25 Aug 1994 12:45:37 GMT
  142. From: hatch.sonalysts.com!gerheim@uunet.uu.net
  143. Subject: QSL Route for RS-12 Robot
  144. To: ham-space@ucsd.edu
  145.  
  146. Does anyone know the QSL route for the RS-12 robot?  I worked it a few
  147. weeks ago, and don't recall the route.  TNX,
  148.  
  149. --
  150. ***********************************************************************
  151. Al Gerheim                                              Sonalysts, Inc.
  152. Email: gerheim@sonalysts.com                         215 Parkway North
  153. Work: (203)442-4355                                 Waterford CT 06385
  154. ***********************************************************************
  155.  
  156. ------------------------------
  157.  
  158. End of Ham-Space Digest V94 #238
  159. ******************************
  160.